home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ruthie / instgam2.frm < prev    next >
Text File  |  1995-05-08  |  3KB  |  98 lines
  1. VERSION 2.00
  2. Begin Form InstGame2 
  3.    Caption         =   "RuthieWare"
  4.    ClientHeight    =   4455
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   4920
  8.    Height          =   4860
  9.    Left            =   1035
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4455
  15.    ScaleWidth      =   4920
  16.    Top             =   1140
  17.    Width           =   5040
  18.    Begin PictureBox InstPicture 
  19.       Height          =   4215
  20.       Left            =   120
  21.       ScaleHeight     =   4185
  22.       ScaleWidth      =   4665
  23.       TabIndex        =   0
  24.       Top             =   120
  25.       Width           =   4695
  26.       Begin CommandButton InstContinue 
  27.          Caption         =   "Continue"
  28.          Height          =   375
  29.          Left            =   1440
  30.          TabIndex        =   5
  31.          Top             =   3600
  32.          Width           =   1455
  33.       End
  34.       Begin TextBox InstText2 
  35.          BorderStyle     =   0  'None
  36.          Enabled         =   0   'False
  37.          Height          =   735
  38.          Left            =   120
  39.          MultiLine       =   -1  'True
  40.          TabIndex        =   4
  41.          Text            =   "Click on the Right Arrow to go to Game 1. Click on the Left Arrow to go to Game 3. Click on the Stop sign to quit."
  42.          Top             =   2760
  43.          Width           =   4455
  44.       End
  45.       Begin TextBox InstText1 
  46.          BorderStyle     =   0  'None
  47.          Enabled         =   0   'False
  48.          Height          =   1095
  49.          Left            =   120
  50.          MultiLine       =   -1  'True
  51.          TabIndex        =   3
  52.          Text            =   "In game 2 the player simply chases the picture with the mouse. Every time you successfully click on the picture, the ""thermometer"" goes up. When the thermometer reaches the top, you get a ""success message"", the picture changes, and you start over. "
  53.          Top             =   1560
  54.          Width           =   4575
  55.       End
  56.       Begin TextBox InstHead 
  57.          BorderStyle     =   0  'None
  58.          Enabled         =   0   'False
  59.          FontBold        =   -1  'True
  60.          FontItalic      =   0   'False
  61.          FontName        =   "MS Sans Serif"
  62.          FontSize        =   12
  63.          FontStrikethru  =   0   'False
  64.          FontUnderline   =   0   'False
  65.          Height          =   375
  66.          Left            =   2160
  67.          TabIndex        =   2
  68.          Text            =   "Playing Game 2"
  69.          Top             =   1080
  70.          Width           =   1815
  71.       End
  72.       Begin PictureBox SuccessPict 
  73.          BorderStyle     =   0  'None
  74.          Height          =   1215
  75.          Left            =   120
  76.          Picture         =   INSTGAM2.FRX:0000
  77.          ScaleHeight     =   1215
  78.          ScaleWidth      =   1935
  79.          TabIndex        =   1
  80.          Top             =   120
  81.          Width           =   1935
  82.       End
  83.    End
  84. End
  85. Sub Form_Load ()
  86.     Top = (Screen.Height - InstGame2.Height) / 2
  87.     Left = (Screen.Width - InstGame2.Width) / 2
  88. End Sub
  89.  
  90. Sub InstContinue_Click ()
  91.     InstGame2.Hide
  92. End Sub
  93.  
  94. Sub SuccessPict_Click ()
  95.     InstGame2.Hide
  96. End Sub
  97.  
  98.